home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / pcv05n12.zip / AMIPRO.TXT next >
Text File  |  1993-06-10  |  581b  |  27 lines
  1. Function Main()
  2. If Save() < 1
  3.     SaveAs
  4. EndIf
  5. fName=GetOpenFileName$()
  6. If fName="" Then 
  7.     Exit Function
  8. EndIf
  9. If Not AppIsRunning("Lotus Notes")
  10.     Test=Exec ("C:\Notes\_BNotes.EXE","",2 )
  11.     If Test<32 Then
  12.         Message("Unable to start Notes")
  13.         Exit Function
  14.     EndIf
  15. EndIf
  16. Channel = DDEInitiate("Notes", "SendMail")
  17. If Channel Then 
  18.     DDEExecute( Channel, "NewMessage")
  19.     DDEExecute(Channel, STRCAT$("AttachFile ", fName))
  20.     DDEExecute( Channel, "SEND")
  21.     DDETerminate( Channel)
  22. Else
  23.     Message ("Unable to establish link to Notes!")
  24.     Exit Function
  25. EndIf
  26. End Function
  27.